home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_9 / hedgehog.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  129KB  |  175 lines
  1. 10 FADE
  2. 100 GOSUB
  3. 1000 REM ********* pause game facility ***********
  4. 10000 REM ******* ANIMATE HOG ********
  5. 1010 FREEZE
  6. 1020 IF
  7. 1030 GOTO
  8. 1040 REM ********* SCORE ZONES SET UP AND CHECKED ********
  9. 1050 SET ZONE
  10. 1060 IF
  11. 1070 IF
  12. 1080 VARNAME
  13. 1090 PEN
  14. 110 IF
  15. 1100 PEN
  16. 1110 IF
  17. 1120 RETURN
  18. 11320 SPRITE
  19. 11330 ANIM
  20. 11331 ANIM
  21. 11332 ANIM
  22. 11333 ANIM
  23. 11334 ANIM
  24. 1199 REM ********* worm/turbo hog go **********
  25. 120 GOSUB
  26. 1200 VARNAME
  27. 1205 SPRITE
  28. 1210 IF
  29. 1220 RETURN
  30. 1299 REM ********** HI SCORE TABLE ************
  31. 130 IF
  32. 1300 REM ******** START INTRO HERE **********
  33. 1302 MUSIC
  34. 1320 GOSUB
  35. 1390 WAIT
  36. 140 GOSUB
  37. 1400 REM 
  38. 1410 CLS
  39. 1420 SPRITE
  40. 1440 IF
  41. 1441 LOCATE
  42. 1450 ANIM
  43. 1451 IF
  44. 1456 ANIM
  45. 1460 SPRITE
  46. 1461 LOCATE
  47. 1470 WAIT
  48. 1471 LOCATE
  49. 1472 WAIT
  50. 1473 LOCATE
  51. 1474 WAIT
  52. 1475 LOCATE
  53. 1476 IF
  54. 1477 IF
  55. 1478 GOTO
  56. 1480 FADE
  57. 1490 CLS
  58. 150 IF
  59. 1520 SPRITE
  60. 1531 IF
  61. 1532 LOCATE
  62. 1535 SPRITE
  63. 1536 LOCATE
  64. 1537 WAIT
  65. 1538 LOCATE
  66. 1540 PRINT
  67. 1549 LOCATE
  68. 1550 IF
  69. 1588 IF
  70. 1589 GOTO
  71. 1590 REM ****** COLOUR CYCLES ********
  72. 1591 SHIFT
  73. 1592 REM ****** COLOUR CYCLES ********
  74. 160 GOSUB
  75. 170 IF
  76. 180 GOSUB
  77. 190 IF
  78. 20 REM ******** main game loop ************
  79. 200 GOSUB
  80. 201 IF
  81. 210 INC
  82. 220 GOSUB
  83. 230 IF
  84. 240 GOSUB
  85. 250 IF
  86. 260 GOSUB
  87. 270 IF
  88. 280 GOSUB
  89. 290 IF
  90. 30 IF
  91. 300 GOSUB
  92. 31 IF
  93. 310 IF
  94. 32 IF
  95. 320 GOSUB
  96. 33 IF
  97. 330 GOTO
  98. 335 IF
  99. 336 RETURN
  100. 340 REM ******** car movements ***********
  101. 350 SPRITE
  102. 360 SPRITE
  103. 370 SPRITE
  104. 380 SPRITE
  105. 390 SPRITE
  106. 40 GOSUB
  107. 400 SPRITE
  108. 410 SPRITE
  109. 420 SPRITE
  110. 430 SPRITE
  111. 440 SPRITE
  112. 450 SPRITE
  113. 460 SPRITE
  114. 470 SPRITE
  115. 480 SPRITE
  116. 490 SPRITE
  117. 50 IF
  118. 500 REM  *********** set up screens *** get ready then game screen *********
  119. 501 IF
  120. 510 SCROLL
  121. 520 SCREEN COPY
  122. 530 WAIT VBL
  123. 540 FOR
  124. 550 INK
  125. 560 FADE
  126. 570 REM *********** collision checking ************
  127. 580 HIDE
  128. 590 IF
  129. 60 GOSUB
  130. 600 IF
  131. 610 IF
  132. 620 REM ****** scores setups *************
  133. 630 SPRITE
  134. 640 ANIM
  135. 650 VARNAME
  136. 660 REM ******* check if need to put cars back ? **********
  137. 670 IF
  138. 680 IF
  139. 690 ANIM
  140. 70 IF
  141. 700 REM  ******** CHECK SCORES AND WAIT FOR NEXT PLAYER **********
  142. 710 IF
  143. 720 IF
  144. 730 IF
  145. 740 IF
  146. 750 GOTO
  147. 760 REM ****** collision yes ! ************
  148. 770 SHOOT
  149. 775 VARNAME
  150. 780 IF
  151. 790 MOVE
  152. 80 GOSUB
  153. 800 PEN
  154. 810 PEN
  155. 820 IF
  156. 830 PAPER
  157. 840 IF
  158. 850 IF
  159. 860 IF
  160. 870 IF
  161. 880 IF
  162. 890 IF
  163. 9 KEY
  164. 90 IF
  165. 900 IF
  166. 910 RETURN
  167. 920 REM ********** end game *********
  168. 930 MUSIC
  169. 940 WAIT VBL
  170. 950 REM  ********* alter the game music speed/pitch **********
  171. 960 IF
  172. 970 IF
  173. 980 IF
  174. 990 RETURN
  175.